#! /usr/bin/perl

use diagnostics;
use strict;

my %teste = ( 'a' => 'a', 'b' => 'b', );

print "Exists a\n" 	if exists $teste{'a'};
print "Exists b\n" 	if exists $teste{'b'};
print "Exists c\n" 	if exists $teste{'c'};